home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 1992 August / info-mac-1992.iso / Language (lang) / Lazy-Scheme / Divers / Stepper < prev    next >
Text File  |  1992-03-05  |  281b  |  15 lines
  1. {A simple stepper relying on stepin and stepout hooks}
  2.  
  3.  
  4. (let [(c 0)]
  5.   (define (stepin f e) 
  6.     (=! c (1+ c)) 
  7.     (prin c) (prin " -> ") 
  8.     (prin f) (prin " in ") 
  9.     (print (envar e)) (pause) c))
  10.  
  11. (define (stepout c v) 
  12.   (prin c) 
  13.   (prin " <- ") 
  14.   (printdebug v)(pause))
  15.